home *** CD-ROM | disk | FTP | other *** search
/ Chip 2011 November / CHIP_2011_11.iso / Programy / Inne / Gry / Carnage_Contest / scripts / CC Original / movement / Super Jet-Pack.lua < prev    next >
Text File  |  2009-11-29  |  2KB  |  69 lines

  1. --------------------------------------------------------------------------------
  2. -- Weapon Super Jet-Pack
  3. -- Original Carnage Contest Weapon
  4. -- Script by DC, November 2009, www.UnrealSoftware.de
  5. --------------------------------------------------------------------------------
  6.  
  7. -- Setup Tables
  8. if cc==nil then cc={} end
  9. cc.superjetpack={}
  10.  
  11. -- Load & Prepare Ressources
  12. cc.superjetpack.gfx_wpn=loadgfx("weapons/jetpack.bmp")                            -- Weapon Image
  13. setmidhandle(cc.superjetpack.gfx_wpn)
  14. cc.superjetpack.gfx_icon=loadgfx("weapons/superjetpackicon.bmp")                -- Weapon Icon Image
  15. setmidhandle(cc.superjetpack.gfx_icon)
  16. cc.superjetpack.sfx_wpn=loadsfx("jetpack.wav")                                    -- Jetpack Sound
  17.  
  18. --------------------------------------------------------------------------------
  19. -- Weapon: Super Jet-Pack
  20. --------------------------------------------------------------------------------
  21.  
  22. cc.superjetpack.id=addweapon("cc.superjetpack","Super Jet-Pack",cc.superjetpack.gfx_icon,0)        -- Add Weapon (0 uses)
  23. cc.superjetpack.fuel=1000                                                        -- superjetpack fuel (1000/50=20 Sec)
  24.  
  25. function cc.superjetpack.draw()                                                    -- Draw
  26.     setblend(blend_alpha)
  27.     setalpha(1)
  28.     setcolor(255,255,255)
  29.     setscale(getplayerdirection(0),1)
  30.     setrotation(0)
  31.     drawimage(cc.superjetpack.gfx_wpn,getplayerx(0),getplayery(0)+7)
  32.     -- HUD ammobar
  33.     if cc.superjetpack.fuel-weapon_shots>0 then
  34.         hudammobar(cc.superjetpack.fuel-weapon_shots,cc.superjetpack.fuel)
  35.     end
  36. end
  37.  
  38. function cc.superjetpack.attack(attack)                                            -- Attack
  39.     if (weapon_shots<=cc.superjetpack.fuel) then
  40.         if (attack==1) then
  41.             -- Use weapon and allow to use another one afterwards
  42.             useweapon(1)
  43.             -- Increase shots
  44.             weapon_shots=weapon_shots+1
  45.             -- Increase thrust up to 2.5
  46.             weapon_timer=weapon_timer+0.1
  47.             if weapon_timer>2.5 then
  48.                 weapon_timer=2.5
  49.             end
  50.             -- Push current player with thrust
  51.             playerpush(0,0,-weapon_timer,1)
  52.             -- FX
  53.             for xo=-7,7,14 do
  54.                 particle(p_smoke,getplayerx(0)+xo,getplayery(0)+15)
  55.                 particlespeed(math.random(-2,2)*0.1,math.random(3,5)*0.1)
  56.                 particlefadealpha(0.01)
  57.                 particle(p_lightpuff,getplayerx(0)+xo,getplayery(0)+13)
  58.                 particlespeed(math.random(-2,2)*0.1,math.random(3,5)*0.1)
  59.                 particlefadealpha(0.04)
  60.             end
  61.             if math.mod(weapon_shots,3)==0 then
  62.                 playsound(cc.superjetpack.sfx_wpn)
  63.             end
  64.         else
  65.             -- Reset thrust
  66.             weapon_timer=0.0
  67.         end
  68.     end
  69. end